home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 22
/
Cream of the Crop 22.iso
/
program
/
ctlib100.zip
/
INSTALL.LZH
/
ARRAYS6.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-10-12
|
4KB
|
147 lines
{**************************************************************************}
{* BitSoft Development, L.L.C. *}
{* Copyright (C) 1995, 1996 BitSoft Development, L.L.C. *}
{* All rights reserved. *}
{* Containers Library demo *}
{**************************************************************************}
program Arrays6;
{$X+}
{ Sample program for using a standard resizable object array }
uses Objects, Containr, ctArrays,
{$ifdef Windows}
WinCtr;
{$else}
Crt;
{$endif}
type
PContact = ^TContact;
TContact = object (TObject)
FirstName,
LastName,
Phone,
Company : PString;
constructor Init(ALastName, AFirstName, APhone, ACompany : string);
destructor Done; virtual;
end; { TContact }
constructor TContact.Init(ALastName, AFirstName, APhone, ACompany : string);
begin
FirstName := NewStr(AFirstName);
LastName := NewStr(ALastName);
Phone := NewStr(APhone);
Company := NewStr(ACompany);
end;
destructor TContact.Done;
begin
DisposeStr(FirstName);
DisposeStr(LastName);
DisposeStr(Phone);
DisposeStr(Company);
end;
procedure DisplayContacts(ContactList : PSequence);
procedure PrintInfo (Item : Pointer); far;
begin
with PContact(Item)^ do
writeln(LastName^, '':15 - Length(LastName^),
FirstName^, '':15 - Length(FirstName^),
Phone^, '':20 - Length(Phone^),
Company^, '':20 - Length(Company^));
end;
begin
ContactList^.ForEach(@PrintInfo);
end;
procedure DisplayFirst(ContactList : PSequence);
var
Item : Pointer;
Index : LongInt;
begin
Item := ContactList^.First(Index);
Writeln('First item:');
with PContact(Item)^ do
writeln(LastName^, '':15 - Length(LastName^),
FirstName^, '':15 - Length(FirstName^),
Phone^, '':20 - Length(Phone^),
Company^, '':20 - Length(Company^));
ContactList^.DoneItem(Item); { not required }
end;
procedure DisplayLast(ContactList : PSequence);
var
Item : Pointer;
Index : LongInt;
begin
Item := ContactList^.Last(Index);
Writeln('Last item:');
with PContact(Item)^ do
writeln(LastName^, '':15 - Length(LastName^),
FirstName^, '':15 - Length(FirstName^),
Phone^, '':20 - Length(Phone^),
Company^, '':20 - Length(Company^));
ContactList^.DoneItem(Item); { not required }
end;
procedure FindLastName(ContactList : PSequence; LastName : string);
var
Item : Pointer;
Index : LongInt;
function MatchLastName (Item : Pointer): boolean; far;
begin
MatchLastName := (LastName = PContact(Item)^.LastName^);
end;
begin
Item := ContactList^.FirstThat(@MatchLastName, Index);
Writeln('Item found with last name ''', LastName, ''':');
with PContact(Item)^ do
writeln(LastName^, '':15 - Length(LastName^),
FirstName^, '':15 - Length(FirstName^),
Phone^, '':20 - Length(Phone^),
Company^, '':20 - Length(Company^));
ContactList^.DoneItem(Item); { not required }
end;
var
ContactList : PResizableStdObjectArray;
Contact : TContact;
begin
ClrScr;
{ Create the array }
ContactList := New(PResizableStdObjectArray, Init(50, 10, SizeOf(TContact)));
{ Insert the items in the array }
with ContactList^ do
begin
Contact.Init('Lewis', 'Carl', '(506) 83-780', 'Running, Corp.');
Insert(@Contact);
Contact.Init('Benton', 'Michael', '(403) 33-973', 'ER, Inc.');
Insert(@Contact);
Contact.Init('Wagner', 'Robert', '(906) 11-230', 'Symphony, Ltd.');
Insert(@Contact);
Contact.Init('Smith', 'John', '(656) 75-843', 'InterComm, Corp.');
Insert(@Contact);
end; { with }
DisplayContacts(ContactList);
Writeln;
DisplayFirst(ContactList);
Writeln;
DisplayLast(ContactList);
Writeln;
FindLastName(ContactList, 'Wagner');
{ Dispose of the array }
Dispose(ContactList, Done);
end.